home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / role / Zueri.lha / Demo / Install_Z—Ói < prev    next >
Text File  |  1994-10-21  |  1KB  |  95 lines
  1. ; This is the installation of Züri to your Hard-Disk
  2.  
  3. (transcript "Züri little big City")
  4.  
  5.  
  6. (set dest_name
  7.     (askdir
  8.         (prompt "Wo soll ein Ordner Züri installiert werden??")
  9.         (help @askdir-help)
  10.         (default @default-dest)
  11.     )
  12. )
  13.  
  14. (set dest_name (tackon dest_name "Züri")
  15. )
  16.  
  17.  
  18. (makedir dest_name
  19.     (prompt "Es wird ein Ordner \"" dest_name "\" kreiert.")
  20.     (help @makedir-help)
  21.     (confirm)
  22. )
  23.  
  24. ;We now have a valid destination, so tell Installer where Züri will end up
  25. ;so the exit page will be correct.
  26. (set @default-dest dest_name)
  27.  
  28. (copylib
  29.     (prompt "Züri braucht smusplayer.library.")
  30.     (help @copylib-help)
  31.     (source "libs/smusplayer.library")
  32.     (dest dest_name)
  33.     (confirm)
  34. )
  35.  
  36. (copylib
  37.     (prompt "Züri braucht arp.library.")
  38.     (help @copylib-help)
  39.     (source "libs/arp.library")
  40.     (dest "libs:")
  41.     (confirm)
  42. )
  43.  
  44. (copyfiles
  45.     (source "Züri")
  46.     (dest dest_name)
  47.     (infos)
  48. )
  49.  
  50. (message "Habe eben Züri kopiert.")
  51.  
  52. (copyfiles
  53.     (source "Instru")
  54.     (dest (tackon dest_name "Instru"))
  55.     (all)
  56. )
  57.  
  58. (copyfiles
  59.     (source "Sample")
  60.     (dest (tackon dest_name "Sample"))
  61.     (all)
  62. )
  63.  
  64.  
  65. (copyfiles
  66.     (source "Scores")
  67.     (dest (tackon dest_name "Scores"))
  68.     (all)
  69. )
  70.  
  71. (copyfiles
  72.     (source "InfOrt")
  73.     (dest (tackon dest_name "InfOrt"))
  74.     (all)
  75. )
  76.  
  77. (copyfiles
  78.     (source "Pictur")
  79.     (dest (tackon dest_name "Pictur"))
  80.     (all)
  81. )
  82.  
  83.  
  84.  
  85. (makedir 
  86.     (tackon dest_name "Games")
  87. )
  88.  
  89. (copyfiles
  90.     (source "Games.info")
  91.     (dest dest_name)
  92. )
  93.  
  94. (exit)
  95.